
declaracion

  entero: entero1, entero2, entero3;
  texto: textoA, textoB, textoC;
  real: real1, real2,real3;

findedeclaracion


entero1 = entero2 = entero3 = 5;
real1= 5.0;

real2= .85;
textoA = "mi primer texto en fosforo ";
textoC = "los numeros enteros son distintos";

mientras que (  enlista( entero1 ; [1;2;3;4;5;6;7;8;9;10]) ) entonces
inicio

    si ( entero1 == entero2 && entero1 == entero3 ) entonces
    inicio
        
        imprimir ("Todos los enteros son iguales");
    fin
    
    sino
    inicio

       imprimir( textoC );

    fin


fin

truncar(real1);
redondear(real2);

real3 = ssi( real1 <= real2 , real1 ,real2);


